home *** CD-ROM | disk | FTP | other *** search
/ Interactive Quarterly / The Best of New Machine Publishing 1 - Disc 4: Interactive Quarterly.iso / pc / demos / az / cyberx.dxr / 00186_EFECTOPUERTA.ls < prev    next >
Encoding:
Text File  |  1996-10-06  |  2.1 KB  |  90 lines
  1. on EfectoPuerta
  2.   global Punto, Sala, Niv, idioma, pase, video
  3.   if Punto = 175 then
  4.     if pase = 0 then
  5.       puppetSound("M" & string(idioma) & "-4")
  6.       updateStage()
  7.       repeat while soundBusy(1)
  8.       end repeat
  9.       puppetSound(0)
  10.     else
  11.       if pase = 1 then
  12.         set the visible of sprite 33 to 0
  13.         set pase to 2
  14.       end if
  15.       unLoad(label("niv41"), label("niv41") + 296)
  16.       preLoad(label("P" & Niv & "12"), label("P" & Niv & "12") + 6)
  17.       Autoriza()
  18.       go(label("P" & Niv & "12"))
  19.     end if
  20.   else
  21.     if Punto = 435 then
  22.       unLoad(label("niv41"), label("niv41") + 296)
  23.       preLoad(label("P" & Niv & "21"), label("P" & Niv & "21") + 6)
  24.       Autoriza()
  25.       go(label("P" & Niv & "21"))
  26.     else
  27.       if Punto = 281 then
  28.         unLoad(label("niv41"), label("niv41") + 296)
  29.         preLoad(label("P" & Niv & "13"), label("P" & Niv & "13") + 8)
  30.         Autoriza()
  31.         go(label("P" & Niv & "13"))
  32.       else
  33.         if Punto = 805 then
  34.           unLoad(label("niv43"), label("niv43") + 7)
  35.           preLoad(label("P" & Niv & "31"), label("P" & Niv & "31") + 9)
  36.           Autoriza()
  37.           go(label("P" & Niv & "31"))
  38.         else
  39.           if Punto = 5 then
  40.             if video < 5 then
  41.               NoAutoriza()
  42.             else
  43.               unLoad(label("niv41"), label("niv41") + 296)
  44.               preLoad(label("P" & Niv & "ASC"), label("P" & Niv & "ASC") + 9)
  45.               Autoriza()
  46.               go(label("P" & Niv & "ASC"))
  47.             end if
  48.           end if
  49.         end if
  50.       end if
  51.     end if
  52.   end if
  53. end
  54.  
  55. on NoAutoriza
  56.   global idioma
  57.   if idioma = 1 then
  58.     puppetSound("denied")
  59.   else
  60.     if idioma = 2 then
  61.       puppetSound("denegado")
  62.     else
  63.       puppetSound("denerado")
  64.     end if
  65.   end if
  66.   updateStage()
  67.   repeat while soundBusy(1)
  68.     nothing()
  69.   end repeat
  70.   puppetSound(0)
  71. end
  72.  
  73. on Autoriza
  74.   global idioma
  75.   if idioma = 1 then
  76.     puppetSound("autorized")
  77.   else
  78.     if idioma = 2 then
  79.       puppetSound("autorizado")
  80.     else
  81.       puppetSound("autogizado")
  82.     end if
  83.   end if
  84.   updateStage()
  85.   repeat while soundBusy(1)
  86.     nothing()
  87.   end repeat
  88.   puppetSound(0)
  89. end
  90.